home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / LINES.DO < prev    next >
Text File  |  1991-07-18  |  529b  |  20 lines
  1. /*
  2.     demo of the BGI line drawing methods
  3. */
  4. #include "bgidef.do"
  5.  
  6. initGraph(DETECT,0,envSymbol("bgipath"));
  7. outTextXY(200,50,"BGI Line Drawing Demonstration");
  8. line(100,100,100,300); % draw a line
  9. setLineStyle(1,0,0);
  10. line(150,100,150,300); % dotted line
  11. setLineStyle(2,0,0);
  12. line(200,100,200,300); % centered line
  13. setLineStyle(3,0,0);
  14. line(250,100,250,300); % dashed line
  15. setLineStyle(4,$0F0F,3); 
  16. line(300,100,300,300); % user defined
  17. outTextXY(20,450,"Press any key to continue...");
  18. inkey();
  19. closeGraph();
  20.